home *** CD-ROM | disk | FTP | other *** search
/ Clickx 13 / Clickx 13.iso / mac / Grafisch / Geo3D 2.0 / Sample Scripts / Animation next >
Encoding:
Text File  |  2000-03-17  |  700 b   |  21 lines  |  [TEXT/ToyS]
  1. tell application "Geo3D"
  2.     activate
  3.     make new document
  4.     set x to import animation from file ":Sample Scripts:Demo.geo" -- x = number of frames
  5.     if x > 0 then -- 0: error
  6.         set moving to wireframerenderer -- Viewer:When Moving:QuickDraw 3D WireFrame
  7.         play -- all frames
  8.         play with backwards -- all frames backwards
  9.         play from 5 to 33
  10.         play from 5 to 33 with backwards -- from 33 to 5
  11.         set moving to asis -- Viewer:When Moving:As Is
  12.         play from 20 -- from 25 to last
  13.         play from 20 with backwards -- from last to 20
  14.         play to 30 -- from 1 to 30
  15.         play to 30 with backwards -- from 30 to 1
  16.         go to frame 12 -- frame 12
  17.         go to frame x -- last frame
  18.         delete recording
  19.         initial view
  20.     end if
  21. end tell